﻿Public Enum CodecList
	K054539
	OKI6295
	WAV
End Enum

Public Module CodecListModule
	Public Function GetCodec(cl As CodecList)
		Select Case cl
			Case CodecList.K054539
				Return New K054539.CodecInt
			Case CodecList.OKI6295
				Return New OKI6295.CodecInt
			Case CodecList.WAV
				Return New WAV.CodecInt
		End Select
		Return Nothing
	End Function
End Module